
# VHT outcomes ------------------------------------------------------------

# Unreported Absenteeism

vht_elcb$parents_complain_q5_1

vht_el$complain_absenteeism <- NA
vht_el$complain_absenteeism[vht_el$parents_complain_q5_1 == 2] <- 1
vht_el$complain_absenteeism[vht_el$parents_complain_q5_1 == 1] <- 0



# VHT compliance ----------------------------------------------------------


#             Answer to 19.1)                       Answer to 19.2)
# complrs     1,2,3,4,5, or 6                       anything
# ind compl   0 but knew about screenings           Yes, friends and family
#             0 did not know about the screenings   Yes, friends
#             Don’t know                            Yes, family
#             Refuse to answer
# appr. nt    0 but knew about screenings           No
#                                                   Don't know 
#                                                   refuse
# never-takr  0 did not know about screenings       No
#             Don't know                            Don't know
#             Refuse to answer                      Refuse

vht_elcb$films_q17_1
vht_elcb$other_attend_q17_2

vht_el$compliance[vht_el$films_q17_1 %in% 1:6] <- 1
vht_el$compliance[!(vht_el$films_q17_1 %in% 1:6) & vht_el$other_attend_q17_2 %in% 1:3] <- 2
vht_el$compliance[vht_el$films_q17_1 == 7 & (vht_el$other_attend_q17_2 == 4 | is.na(vht_el$other_attend_q17_2) |vht_el$other_attend_q17_2 %in% c(999, 888) )] <- 3
vht_el$compliance[vht_el$films_q17_1 == 8 & (vht_el$other_attend_q17_2 == 4 | is.na(vht_el$other_attend_q17_2) |vht_el$other_attend_q17_2 %in% c(999, 888))] <- 4

# 1 NA

vht_el$compliance_label[vht_el$compliance == 1] <- "Complier"
vht_el$compliance_label[vht_el$compliance == 2] <- "Indirect Complier"
vht_el$compliance_label[vht_el$compliance == 3] <- "Apprised Never-Taker"
vht_el$compliance_label[vht_el$compliance == 4] <- "Never-Taker"


